Vincent Spotify

Let’s try to get some of Vincent’s playlists!

# Load data

fav_2019 <- get_playlist_audio_features("", "37i9dQZF1EtiJ34DHwvwX5")
spirit <- get_playlist_audio_features("", "6pJNOxPmQYxFBHrIQNSJZB")

# Mutate added_at to only contain year

spirit <- spirit %>%
  mutate(added_at = as.numeric(format(as.Date(added_at),'%Y')))
fav_2019 <- fav_2019 %>%
  mutate(track.album.release_date = as.numeric(format(as.Date(track.album.release_date),'%Y')))

ggplot_var <- ggplot(data = fav_2019, mapping = aes(x = valence, y = energy, size = track.duration_ms, color = track.album.name, label=track.name)) + 
  geom_point(aes(alpha = loudness)) +
  geom_rug(size = 0.1) +
  theme_minimal() + 
  theme(legend.position="none") +

  labs(                            # Make the titles nice.
    x = "Valence",
    y = "Energy") +

  scale_x_continuous(              # Fine-tune the x axis.
    limits = c(0, 1),
    breaks = c(0, 0.50, 1),        # Use grid-lines for quadrants only.
    minor_breaks = NULL            # Remove 'minor' grid-lines.
  ) +
  
  scale_y_continuous(              # Fine-tune the y axis in the same way.
    limits = c(0, 1),
    breaks = c(0, 0.50, 1),
    minor_breaks = NULL
  ) +
  ggtitle("Vincent's Favorite Songs of 2019")
  
ggplotly(ggplot_var)

ggplot(data = spirit, aes(x = valence, y = factor(added_at), fill =..x..)) + 
  geom_density_ridges_gradient(size = 0.1) + 
  scale_fill_gradient(low = "blue", high = "orange") + 
  theme_ridges() + 
  theme(panel.background = element_rect(fill = "white")) +
  theme(plot.background = element_rect(fill = "white")) +
  theme(legend.position = "none") +
  theme(axis.text.y = element_text(size=5))+
  ggtitle("My Own Spirit")+
  labs(x = "Valence", y="Year Added")

## Picking joint bandwidth of 0.0385

ggplot(data = spirit, aes(x = energy, y = factor(added_at), fill =..x..)) + 
  geom_density_ridges_gradient(size = 0.1) + 
  scale_fill_gradient(low = "blue", high = "orange") + 
  theme_ridges() + 
  theme(panel.background = element_rect(fill = "white")) +
  theme(plot.background = element_rect(fill = "white")) +
  theme(legend.position = "none") +
  theme(axis.text.y = element_text(size=5))+
  ggtitle("My Own Spirit")+
  labs(x = "Energy", y="Year Added")

## Picking joint bandwidth of 0.0236